home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
mfix0712.zip
/
MBS50712.FIX
< prev
next >
Wrap
Text File
|
1992-07-12
|
4KB
|
101 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against E:\RBBS\TEMP\RBBSSUB5.BAS to produce E:\RBBS\CHAT\RBBSSUB5.BAS
* E:\RBBS\TEMP\RBBSSUB5.BAS: Date 7-7-1992 Size 125539 bytes
* ------------[ Created 07-12-1992 19:58:08 ]------------
* REPLACING old line(s) by new
64998 ZAutoEnd = 1
Call SkipLine (2)
END SUB
'
' **** S - COMMAND FROM UTILITY MENU (STATISTICS) *** 'Pe 09/02/91
'
SUB Statistics (CallsToDate!,ActiveMessages,HighMsgNumber,HighestMsgRecord,CurUserCount,MaxMsgs) STATIC
ActionFlag = ZTrue
IF ZActiveMessageFile$ = ZPrevBase$ THEN _
ActionFlag = ZFalse
CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$)
ZOutTxt$ = ""
IF NOT ZConfMode THEN _
ZOutTxt$ = "Caller Number................"+STR$(CallsToDate!) + " "+ZCrLf$
ZOutTxt$ = ZOutTxt$ + "Active Messages.............."+STR$(ActiveMessages)+ZCrLf$
ZOutTxt$ = ZOutTxt$ + "Next Msg Number.............."+STR$(HighMsgNumber + 1)+ZCrLf$
IF ZLastMsgRead > 0 THEN _
ZOutTxt$ = ZOutTxt$ + "Last msg you read............" + STR$(ZLastMsgRead)+ZCrLf$ _
ELSE ZOutTxt$ = ZOutTxt$ + "You Have NOT Read Any Messages Yet !" +ZCrLf$ : _
ZNewUserDgs = Ztrue
ZSubParm = 2
CALL TPut
IF ZSubParm < 0 THEN _
EXIT SUB
ZWasZ$ = ZUpldDriveFile$
CALL FindFree
CALL QuickTPut1 ("Upload disk has" + ZFreeSpace$)
CALL QuickTPut1 ( "Free String Space = "+ (STR$(CINT(FRE("A"))) + " bytes")) 'Pe 01/01/92
CALL QuickTPut1 ( "StackSpace = "+ (STR$(CINT(FRE(-2))) + " bytes")) 'Pe 05/10/92
IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _
CALL Delaytime (2) : _
EXIT SUB
UserWork = (ZHighestUserRecord * .95) + 1
IF ZMsgsCanGrow THEN _
ZWasY$ = " open" _
ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - ZMaxNodes - ZNextMsgRec)
ZOutTxt$ = "USERS: used" + _
STR$(CurUserCount - 1) + _
" avl" + _
STR$(UserWork - CurUserCount) + _
" MSGS: used" + _
STR$(ActiveMessages) + _
" avl" + _
STR$(MaxMsgs - ActiveMessages) + _
" MSG REC: used" + _
STR$(ZNextMsgRec - 1) + _
" avl" + ZWasY$
ZSubParm = 2
CALL TPut
IF ZSubParm < 0 THEN _
EXIT SUB
CALL DelayTime (2)
END SUB
'********************************************************************
'
SUB ShowUsrProfile STATIC
CALL QuickTPut (CHR$(12),0) ' to clear screen
WasX$ = "USER NAME : " + ZActiveUserName$ + ZCrLF$ + _
"SECURITY :" + STR$(ZUserSecSave) + ZCrLf$ + _
"PASSWORD : " + ZPswdSave$ + ZCrLF$ + _
"READ MSG. :" + STR$(ZLastMsgRead)
Call QuickTput1 (WasX$)
WasX$ = "TIMES ON :" + STR$(ZTimesLoggedOn) +ZCrLF$ + _
"Last ON : " + ZLastDateTimeOnSave$ +ZCRLF$ + _
* ------[ first line different ]------
"DownLoads :" + STR$(ZDnlds) 'Pe 07/09/92
Call QuickTput1 (WasX$)
WasX$ = "Uploads :" + STR$(ZUplds)+ ZCrLf$ + _ 'Pe 06/01/92
"Baud Rate : " + ZCBaud$ + " Bps" 'Pe 06/01/92
Call QuickTPut1 (WasX$)
WasX$ = "Dl-Bytes :" + STR$(ZDLBytes!)+ZCrLF$ + _
"Ul-Bytes :" + STR$(ZULBytes!) 'Pe 07/09/92
Call QuickTput1 (WasX$)
WasX$ = "User mode : " + MID$("NoviceExpert",1 -6 * ZExpertUser,6) +ZCrLf$ +_
"Graphics : " + MID$("None AsciiColor",GR * 5 + 1,5)
Call QuickTput1 (WasX$)
WasX$ = "Protocol : " + ZUserXferDefault$ + ZCrLF$ + _
"Upper Case: " + MID$("and lowerONLY", 1 - 9 * ZUpperCase,9)+ZCrLf$ + _
"Line Feeds: " + FNOFFON$(ZLineFeeds)+ ZCrLF$ + _ 'Pe 07/11/92
"Nulls : " + FNOFFON$(ZNulls)
Call QuickTPut1 (WasX$)
IF ZRestrictByDate THEN _
CALL QuickTPut ("EXPIRATION: " + ZExpirationDate$,1)
CALL Toggle (-8)
CALL Toggle (-5)
CALL Toggle (-10)
CALL Toggle (-2)
CALL Toggle (-4)
CALL Toggle (-1)
CALL AskMore ("",ZTrue,ZFalse,WasX,ZTrue)
END SUB
'********************************************************************
'
SUB BatchUpload (ZDesc$,ZUCat$,WasFF) STATIC
On WasFF GOTO 69000, 69500